home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / dde1 / execute.frm < prev    next >
Text File  |  1993-05-26  |  2KB  |  67 lines
  1. VERSION 2.00
  2. Begin Form frmExecute 
  3.    Caption         =   "Command to Execute"
  4.    Height          =   1755
  5.    Left            =   1155
  6.    LinkMode        =   1  'Source
  7.    LinkTopic       =   "Form1"
  8.    ScaleHeight     =   1350
  9.    ScaleWidth      =   6180
  10.    Top             =   3570
  11.    Width           =   6300
  12.    Begin CommandButton cmdCancel 
  13.       Cancel          =   -1  'True
  14.       Caption         =   "Cancel"
  15.       Height          =   495
  16.       Left            =   4920
  17.       TabIndex        =   2
  18.       Top             =   720
  19.       Width           =   1095
  20.    End
  21.    Begin ComboBox cboExecuteString 
  22.       FontBold        =   0   'False
  23.       FontItalic      =   0   'False
  24.       FontName        =   "MS Sans Serif"
  25.       FontSize        =   8.25
  26.       FontStrikethru  =   0   'False
  27.       FontUnderline   =   0   'False
  28.       ForeColor       =   &H00000000&
  29.       Height          =   300
  30.       Left            =   120
  31.       TabIndex        =   1
  32.       Top             =   240
  33.       Width           =   4695
  34.    End
  35.    Begin CommandButton cmdOK 
  36.       Caption         =   "OK"
  37.       Default         =   -1  'True
  38.       Enabled         =   0   'False
  39.       Height          =   495
  40.       Left            =   4920
  41.       TabIndex        =   0
  42.       Top             =   120
  43.       Width           =   1095
  44.    End
  45. End
  46. Option Explicit
  47.  
  48. Sub cboExecuteString_Change ()
  49.     cmdOK.Enabled = (Len(cboExecuteString.Text) > 0)
  50. End Sub
  51.  
  52. Sub cboExecuteString_Click ()
  53.     cmdOK.Enabled = (Len(cboExecuteString.Text) > 0)
  54. End Sub
  55.  
  56. Sub cmdCancel_Click ()
  57.     Unload frmExecute
  58. End Sub
  59.  
  60. Sub cmdOK_Click ()
  61. On Error Resume Next
  62.     frmMain.txtData.LinkExecute cboExecuteString.Text
  63.     frmMain.picData.LinkExecute cboExecuteString.Text
  64.  
  65. End Sub
  66.  
  67.